var
 quantile: integer;
 xsize, ysize: integer;

macro 'XY Quantile';
begin
  RequiresUser('Quantile',1);
  XYQuantile(quantile,xsize,ysize);
end;

macro 'Z Quantile';
begin
  RequiresUser('Quantile',1);
  ZQuantile(quantile);
end;

macro 'Set quantile';
begin
  quantile := GetNumber('Quantile',quantile);
end;

macro 'Set filter size';
begin
  xsize := GetNumber('Filter horizontal size',xsize);
  ysize := GetNumber('Filter vertical size',ysize);
end;